#!/usr/bin/env perl

use utf8;
use strict;

my %kv_name = (
	minghua	=> 'yao',
	kang	=>	'wang',
	yong	=>	'liu',
	jun		=>	'wang',
	xianlong=>	'zhang',
	shuwei	=>	'liu',
	guodong	=>	'fan',
	bowen	=>	'gong',
);

while(chomp(my $input = <STDIN>)){
	printf "'%10s' ====> '%10s'\n" => $input, $kv_name{$input};
}
